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¡NOS APLICAMOS A SER UTILES! 

A TRAVES DE MSX CLUB DE MAIUNC PUEDES ADQUIRIR 




¿Ya conoce Vd. 
todas nuestras 
revistas? 

MSX-EXTRA 

Para los usuarios expertos de MSX 

MSX-CLUB 

La revista ideal para iniciarse en el estándar 

CD-COMPACT 

Todo acerca del compact disc 

PCompatible 

Usted ya la conoce 

En Manhattan Transfer, 

el futuro es ahora. 



Programa , 



■ Por Luis Fuentes Garda ■ 



CORAL SEA 



Ideal para emular las horripilantes aventuras 
de los grandes petroleros en las costas de 
Irán. Tripulando un avión o un destructor, 
conviértete en el terror de los mares. Maneja 
fusiles, ametralladoras, misiles mortíferos 
lanzagranadas. 



3 REM * 
5 REM * 



ANEMIC SOFT 



50 REM 
60 REM * 
70 REM * 
B0 REM *> 
90 DI=1 

100 SCREEN 2,2 
110 OPEN "GRP: " AS #1 
120 ON SPRITE GOSUB 1100 
130 ON KEY GOSUB 2550 
140 KEY (1) ON 

150 COLOR 15,4,B:CLS:PRESET (20,80) 
: PRINT ttl, "ESPERE"5+10»DI "SEGUNDOS 
POR FAVOR" 

160 FOR R=0 TO INT(RND(-TIME)*50):A 

=RND(1):NEXT 

170 GOSUB 2590 

1S0 IF DI-1 THEN GOSUB 1370 

190 GOSUB 2310: GOSUB 1900 

200 SPRITE ON 

210 REM *»* DECORADO *** 

220 COLOR 1, ll.BiCLB 

230 LINE (0,16>-(255,192),7,BF 

240 LINE (0, 140>-<255, 192) ,4,BF 

250 PRESET (0,0), UiPRINT #i,"VIENT 

260 PRESET (0,8) , 1 li PRINT *1,"PUNT 
AVION: 0" 

270 PRESET (130,0) , 11: PRINT ttl,"PUN 
T BARCO: 0" 

2B0 REM *** VARIABLES *** 

290 X=255: Y=20:C=1: V=3: 

300 X1=12B:Y1=124:C1=6:DB=1 

310 X2=0:Y2=0:C2=1:AC=0:Q1=0:W2=0 

320 X3=0:Y3=0:C3=1:BC=0 ' 

330 GOSUB 860 

340 PB=0:PA=0 

350 REM *** SUBTRINA DE JUEGO *** 
360 X=X-V+VIE 

370 IF X<-15 THEN X=255: IF RNDC1)>. 

5 THEN GOSUB 860 

380 ON 01 GOSUB 460,520 

390 ON 02 GOSUB 5B0, 640 

400 IF AC=1 THEN GOSUB 730 

410 IF BC=1 THEN GOSUB 990 




410 IF BC=1 THEN GOSUB 990 

420 PUT SFRITE 0, (X,Y),C,3 

430 IF XK01 THEN PUT SPRITE 1,(X1, 

Y»,C1,HPUT SPRITE 2,(X1 + 16,Y1),C1 



450 Q1-X1:U1=Y1:G0T0 360 

460 REM *** MOVIMIENTO AVION DE JUG 

ADOR »** 

470 MA-STICK(Jl) 

480 IF MA=1 THEN Y=Y-1.5:IF Y<16 TH 
EN Y=16 

490 IF MA=5 THEN Y=Y+1.5:IF Y>90 TH 
EN Y«90 

500 IF STRIG(J1)=-1 THEN GOSUB 690 
510 RETURN 

520 REM *** MOVIMIENTO AVION DE ORD 
ENADOR ttt 

530 IF (Y3<Y AND X<Xl-30) OR BC=0 T 

HEN Y=Y-1.5 ELSE Y=Y+1.3 

340 IF Y<16 THEN Y=16 

550 IF Y>90 THEN Y=90 

560 IF <VIE*2)«(Y1-Y)/4>X1-X AND <V 

IE*2)*(Y1-Y)/4<X1+16-X THEN GOSUB 6 

90 

570 RETURN 

580 REM *** MOVIMIENTO BARCO DE JUG 
APOft *$$ 



590 MB=STICK(J2) 

600 IF MB-3 THEN Xl-Otl+liIF Xl>200 
THEN Xl=Xl-2 

610 IF MB=7 THEN X1=X1-1:IF XK40 T 
HEN Xl=Xl+2 

620 IF BTRIG(J2> — 1 THEN GOSUB 950 
630 RETURN 

640 REM *** MOVIMIENTO BARCO DE ORD 
ENADOR *** 

650 Xl=Xl+(DB*4)-2: IF Xl>200 OR XI 
<40 THEN DB=1-DB: 

660 IF X<127 OR <X>X1AND RND(1>>.5> 
THEN X1 = X1-1:IF XK40 THEN Xl=Xl+2 
670 GDSUB 950 
680 RETURN 

690 REM *** VALORES INICIALES DE LA 

BOMBA **» 
700 IF AC=1 THEN RETURN 
710 AC=l:X2=X:Y2«Y+8iW«4iVX-VIE*2 
720 RETURN 

730 REM *** MOVIMIENTO BOMBA **t 

740 X2=X2+VX:Y2=Y2+VY 

750 IF Y2>140 THEN AC=0: SPRITE DFF: 

PUT SPRITE 4, (X2,Y2-10),13,4:GOSUB 

B00:PUT SPRITE 4, (-15, -15) , 1 , 1 3: SPR 

ITE ON : RETURN 

760 IF X2<0 THEN X2=255 

770 IF X2>255 THEN X2*0 

780 PUT SPRITE 4, (X2,Y2),C2,6 

790 RETURN 

800 REM *** EXPLOSION PEQUEñA *** 

810 SOUND 7,247 

820 FOR K=150 TO 0 STEP -1 

B30 SOUND ll,K:SOUND B.K/10 

840 NEXT K 

850 RETURN 

860 REM *** CAMBIO DE DIRECCION DE 
"IENTO *** 

870 SOUND 7,24B:PLAY "V150BC" : VIE= ( 
RND(1)*3.5)-3:VIE=INT(VIE*100>/100 
880 LINE (56.0)-(100,7),H,BF 
890 PSET (36, 0>, 11 SPRINT «1,-VIE 
900 RETURN 

910 REM *** PUNTOS AVION *** 
"70 LINE (B4,B)-(12B,15),11,BF 
930 PA=PA+l!PRESET (88,B):PRINT #1, 
PA:IF PA=FF THEN GA*1: GOSUB 2380 
940 BC=0: RETURN 

950 REM *** VALORES INICIALES DEL D 
ISPARO *** 

960 IF BC=1 THEN RETURN 
970 BC=1:X3=X1+B:Y3=Y1:DY=-4:DX=( (X 
X+B) + ( (Yl-Y) * (VIE-V) ) / <-DY) ) ) * ( 
>/CY-Yl> :DX=DX+< (RND(l)-RND(l) ) 
*2>*<2-02> 
980 RETURN 

990^REM *** MOVIMIENTOS DEL DISPARO 

1000 X3=X3+DX: Y3=Y3+DY 

1010 IF X3<0 THEN X3=255 

1020 IF X3>255 THEN X3=0 



y^ 0 c ^. F 7 BC=1 THEN PUT SPRITE 6, (X3, 

1040 IF Y3<16 THEN BC=i<i:PUT SPRITE 
6, (-15,-15) ,C3,20 
1050 RETURN 

1060 REM *** PUNTOS BARCO *** 

1070 GDSUB S60:LINE (21S 8) - (255 15 

) , 1 1 , BF 

10B0 PB=PB*-1:PRESET (21B, 8) : FRINT ( 
1,PB:IF PB=PF THEN GA=2:G0SUB 2380 
1090 RETURN 

1100 REM *** COMPROBACION DE CHOQUE 

1110 SPRITE OFF 

1120 IF BC=1 THEN GOSUB 1170 

1130 IF AC=1 THEN GOSUB 1150 

1140 SPRITE ON: RETURN 

150 IF <(X2>X1 AND X2<Xl+^4> 



2+8>> 



(1+24) 



OR . 



HEN BC-0IPUT 
PUT SPRITE 6, (-15,-15),4.20:GDSUB 1 
190:PUT SPRITE 4, (-15, -15) , 4, 20: Y3= 
0: GOSUB 1280: GOSUB 860: GOSUB 9113 
1160 IF X3>X2 AND X3<X2*7 AND Y3<Y2 
+8 AND Y3>Y2 THEN PUT SPRITE 6, <X3, 
Y3),13,4jPUT SPRITE 4 , < X2, Y2) . 1 3, 4 : 
GOSUB 800:PUT SPRITE 6, (-15,-15) 14 
20;PUT SPRITE 4, (-15,-15), 14,20:' AC 
=0¡ BC=0: RETURN 

1170 IF X3>X AND X3<X + 15 AND Y3<Y4-B 
AND Y3>Y THEN PUT SPRITE 0,(X,Y),1 
3,5: GOSUB 800: X = 255: Y=20: BC=|1: PUT S 
RETURN 6 ' ( - 15 '- 15 >.C3,20:GOSUB »^0« 
180 RETURN 

190 REM *** EXPLOSION BARCO M* 

200 SOUND 7,247 

210 FOR L=150 TO 0 STEP -2 

220 X=X-(V-VIE)/2:PUT SPRITE 0, (X, 

•),C,3 

230 ON 01 GOSUB 460,520 
1240 IF X<-15 THEN X-255 
1250 SOUND U.LiSOUND B.L/10 
1260 NEXT L 

270 RETURN 

280 REM *** HUNDIMIENTO DEL BARCO 
*** 

1290 H=Y1-H6:F0R L=Y1 TO Yl + 8 STEP 
.3 

1300 X=X-(V-VIE)/2:PUT SPRITE 0,(X, 
Y) , C, 3 

1310 ON 01 GOSUB 460,520 

1320 IF X<-15 THEN X=255 

1330 PUT SPRITE 1 , ( X 1 , L > , C 1 , 1 : F'UT 

SPRITE 11, (X1+16.L) ,C1,2 

1340 PUT SPRITE 1, (XI, H) ,4,3: F'UT SP 

RITE 2, (X1+16.H) ,4.8 

1350 NEXT L 

1360 AC=0:PUT SPRITE 10, (-15, -15) , 4 
,20:PUT SPRITE 1 1 , (-15, - 15 ) , 4 , 20 : X 1 
-12B:PUT SFRITE 1, (XI. Yl) .Cl, 1: F'UT 



Programa ■ 



sprite : 



H6, Yl) ,C1,2:BC=0:RETUR 



1370 REM *** PRESENTACION *** 

1380 COLOR 6,7,9:CLS: 

1370 vDP(l)=162:PRESET (0,0):PRINT 

#1, "CORAL SEA" 

1400 AX=3.5:AY=7 

1410 FOR K=0 TO 70 

1420 FOR L-0 TO B 

1430 IF POINT <K,L)=6 THEN LINE (9+ 
KtAX, 10+L*AY)-(9 + K*AX+AX-l,10+L*ñY+ 
AY-1),6,BF: 
1440 NEXT L 

1450 NEXT K: SOUND 7,255 

0, 140)-(255, 192) ,4,BF 



1470 L 



:ne <0,0>- 



PRESET (30,75) : PRINT ttl, "ES UN 
A PRODUCCION. . . " 
1490 VDP( 11=226 
1500 G=l:SOUND 7,248: 
1510 FOR H=l TQ 6 

1520 SOUND 1,12+G*3:F0R K-150 TO 0 
STEP-3 

1530 SDUND B.K/10 

1540 NEXT K 

1550 G=1-G:NEXT H 

1560 SOUND 7,24BiS0UND 8, 10: FOR L=2 
25 TO -165TEP -.5 
1570 PUT SPRITE 0, (L, 103) , 12, 3 
1580 IF L<90 THEN IF L>0 THEN SOUND 

8, L/ 10: GOTO 1610 ELSE GOTO 1610 
1590 PUT SPRITE 2, (L+33, 1 00) , 1 2, 1 0 
1600 PUT SPRITE 1, (L+17, 100) , 12,9 
1610 NEXT L 

1620 FOR H=l TO 2000: NEXT H 
1630 LINE (50,75)-(230,90) ,7,BF: 
1640 PRESET (50,75) :PRINT ttl," PUL 
SE UNA TECLA" 

1650 IF INKEY*="" THEN GOTO 1650 

1660 FOR K-2S5 TO -15 STEP -1 

1670 PUT SPRITE 3, (K, 124) , 6, 1 : PUT S 



>RITE ' 



:k>16, 124) , 



1680 IF K>=110 THEN PUT SPRITE 2, < 
123, 100+(255-K)/9) , 12, 10: PUT SPRITE 
1, (107, 100+ (255-K>/9) ,12,9 ELSE FU 
SPRITE 2, (K+13, 116) , 12, 10: PUT SPR 



ITE 1 



:-3, 11; 



2,9 



1690 NEXT 

1700 PUT SPRITE 3, (-15,-15! 
1710 PUT SPRITE 4. (-15,-15) ,4,20: 
1720 PUT SPRITE 2, (-15,-15) 
1730 RETURN 

1740 REM *** INSTRUCCIONES *** 

1750 COLOR 15,4,9:CLS 

1760 PRESET (5B,0):PRINT ttl,"— COR 

1770 PRESET (0, 15):PRINT #1, "Estarna 



el Pacifica occiden- tal aña 1 
942. Vientas variables azotan el Ma 
de Coral .. . Mi si ón: Hund i r la -flota 
6 derribar la escuadrilla." 
7B0 GOSUB 2560 

790 PRESET (50,65) :PRINT ttl,"— IN 
STRUCC IONES 
800 PRESET (50,B0):PRINT #l,"Si e 
MARCADOR DE VIENTO es POSITIVO (v 

empujada ha- cia delante, y si es 
NEGATIVO ( viento de proa) el efec 

0 es el contrario, la bomba es emp 
ijada hacia atrás. " 

810 PRESET (25, 130) iPRINT #1,"PULS 

1 UNA TECLA PARA SEGUIR" 

820 IF INKEY$="" THEN GOTO 1820 
830 CLS 

840 PRESET (50, 0) : F'RINT #1 , "El por 
mes se defiendecon proyectiles 
gidos de talforma que el avi 6n 
) los pue-de esquivar ascendien 
des- cendiendo." 
850 PRESET (20.50) :PRINT tt 1 , " — POS 

" DADES DE JUEGO 
860 PRESET (0,70):PRINT ttl,"- UN 
'UGADOR (Joystick/Teclado) - DOS JU 
GADORES - DEMOSTRAC 

ON " 

870 PRESET (25. 165) :PRINT #1,"PULS 

UNA TECLA PARA SEGUIR" 
880 IF INKEY»""" THEN GOTO 1B80 
B90 RETURN 

900 REM *** CONTROLES *** 
910 COLOR 15,4,B:CLS 
920 PRESET 
MANDOS' 



930 PRESET i 
A ABORTAR" 
940 PRESET i 



950 PRESET (10,60: 
-ADO" 

PRESET (10,6B: 
STICK 1" 
970 PRESET (10,76! 
TICK 2" 

980 PRESET (10,84: 
ENADOR" 

990 PRESET (140,50): PRINT 
0: " 



PRINT 



R I N" 



F'RINT #: 
PRINT 



2000 PRESET (140.60) :PRINT ttl,"l-TE 
CLADO" 

2010 PRESET ( 140. 6B) : PRINT »1,"2-J0 
YSTICK 1" 

2020 PRESET (140,76) -.PRINT ttl,"3-J0 
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YSTICK 2" 

2030 F'RESET ( 140, B4! : PRINT #1,"4-0R 
DEN ADOR" 

2040 LINE (8,48>-(58,5B),15,B 
2050 A$-INKEY* 

2060 IF A*<"1" DR A*>"4" THEN GOTO 
2050 

2070 BEEP: BEEP: A=VAL ( A*> 

2030 LINE (B,59+(A-1>*B>-(10B,60+A* 

8), 15, B 

2090 IF A<4 THEN 01=1:J1=A-1 ELSE O 
1=2 

2100 LINE <B.48)-(5S,5B>,4,B 
2110 LINE (138, 48) -(188, 58) ,15,B 
2120 A*=INKEY* 

2130 IF A*<"1" OR Aí>"4" THEN GOTO 
2120 

2140 BEEP : BEEP : A 1 =VAL ( A* ) 

2150 IF A1=A AND A< >4 THEN PLAY "01 

A":GOTO 2120 

2160 LINE (13B,59MA1-1)*B)-(23B,60 
+AHB) , 15, B 

2170 IF AK4 THEN 02=1:J2=A1-1 ELSE 
02=2 

21B0 LINE (138.48)-(1BB,5B) ,4,B 

2190 PRESET (25, 125)! PRINT #1,"¿ A 

CUANTOS PUNTOS (1-99) ?" 

2200 A*=INKEY*:IF A* = "" THEN GDTO 2 

200 

2210 IF A*<"1" OR A*>"9" THEN BEEF: 
GOTO 2200 

2220 A1=VAL(A*> : PRESET (100,135>:PR 
INT #1,A1 

2230 A*=INKEY«:IF A»="" THEN GOTO 2 
230 

2240 IF A*<"0" OR A*>"9" THEN F'F=A1 
:GOTO 2270 
2250 A2=VAL(A*> 

2260 PF=A1*10+A2:FRESET (10B,135):P 
RINT *1,A2 

2270 PRESET (25. 165) : PRINT ttl."PULS 

E UNA TECLA PARA SEGUIR" 

22B0 IF INKEY«="" THEN GOTO 2280 

2290 RETURN 

2300 GOTO 2300 

2310 REM *** INSTRUCCIONES?? *** 
2320 COLOR 15,4,B:CLS 
2330 PRESET (50, 50) : PRINT #1,"INSTR 
UCCIONES <«/n>?" 
2340 A*=INKEY« 
2350 IF A$="s" OR A*="S" THEN GOSUB 

1740: RETURN 
2360 IF A*="n" OR AÍ="N" THEN Ri 

2370 GOTO 2340 
23B0 REM *** FINAL *»* 
2390 GOSUB 2560 
2400 FOR R=l TO 1000: NEXT 
2410 SCREEN 0: KEY OFF: 



2420 IF GA=1 THEN PRINT 
EL AVION POR "PA"-"PB 
2430 IF GA=2 THEN PRINT 
EL BARCO POR "PB"-"PA 
2440 LOCATE 0,10:PRINT ' 
A (S/N)" 

2450 At=INKEY*ilF A*="" 
450 

2460 IF At="S" THEN CLO! 
2470 IF A$="N" THEN CLSi 
S ADIOS ADIOS ADIOS ADIC 
ND 

24B0 GOTO 2450 
2490 LOCATE 0, 15: PRINT ' 
SALGA PRESENTACION (S/N ! 
2500 A*=INKEY$: IF A»="" 



"HA GANADO 

"HA GANADO 

OTRA PARTID 

THEN GOTO 2 

iE:GOT0 2490 
PRINT "ADIO 
IS ADIOS ":E 

QUIERE OUE 
THEN GOTO 2 



2510 IF A*="S" OR At="s" THEN Di-la 
GOTO 2540 

2520 IF At="N" OR At="n" THEN DI=0: 
GOTO 2540 
2530 GOTO 2500 
2540 CLOSE:GOTO 100 

2550 SCREEN 0: KEY OFF: CLS: GOTO 2440 

2560 REM *** MUSICA *** 

2570 SOUND 7,24B: A$="V15T50L16O5CFR 

64FGAFAGCFR64FGAFECFR64FGAA#AGFECDE 

FR64FDEDCDEFDCDC04A*AAtt05CDEDCDEFDC 

FEGFR64F " : PLAY A* 

2580 RETURN 

2590 REM *** SPRITES *** 

2600 RESTORE 26B0: FOR A=l TO 10 

2610 B*="" 

2620 FOR C=l TO 32 

2630 READ D 

2640 B*=B*+CHR$(D> 

2650 NEXT C 

2660 SPRITE*(A)=Bt 

2670 NEXT A 

26B0 DATA 0,0,0,0,0,0,0,0,0,0,0,0,7 
,255,255,127,0,0,0,0,0,0,0,0,16, 16, 



2700 DATA 
,0,0.0,0,2 
5,0,0,0,0, 
2710 DATA 



2720 I 
0,0, 



0.1?, 



,0,0,0, 

2730 DATA 
,0,0,0, 
0,0,0,0 
2740 DATA 
,0,0,0.0,0 



255,255 

1,0,0,0,0,0,1 

0,0.0.0.0.0 
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0,0,0,0 

2750 DATA 255,255,255,255,255,255,2 
55, 255, 255, 255, 255, 255, 255, 255, 255, 
255, 255, 255, 255, 255, 255, 255, 255. 255 
, 255, 255, 255, 255, 255, 255.255. 255 
2760 DATA 255,128,187,170,170,170,1 
70, 186, 170, 170, 170. 170, 170. 170,0,25 



5,232,3, 184, 162, 163, 162, 162, 178, 162 

, 162, 162, 162, 162, 184,3,252 

2770 DATA 0,255,0,174,168,168,168,1 

68, 168, 168, 168, 168, 1 74 , 0, 255, 0, 0, 0, 

192,48,8,4,2, 1, 1, 1,2, 12,24,96, 128,0 

2780 RETURN 

2790 GOTO 2790 



Test de listados m^^h^^^^^^^^^mi,..,., 
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1210 


- 45 




-207 


2010 


-158 










4 20 


-148 






1220 


-227 






2020 


-Í6B 












- 50 






1230 


-193 


1630 


-198 


2030 


-173 










440 








1240 


- 18 


1640 


- 33 


2040 


- 61 










-111 






. 1250 


-242 


1650 


-147 


2050 


- 64 




-169 














1260 


-207 




-147 


2060 


-146 












-234 






1270 


-142 


1670 


-162 


2070 


-109 












-250 






12B0 


- 0 


1680 


- 48 


2080 
2090 


- 77 


2480 


- 50 




490 


-253 






1290 


- 40 


1690 


-131 


-114 




- 12 






500 


- 21 






1300 


-227 


1700 


- 33 


2100 


- 52 


2500 


-219 






510 


-142 




- 0 


1310 


-193 


1710 


- 34 


2110 




2510 














-190 


1320 


- 18 


1720 


- 32 


2120 




2520 


-155 






530 


-243 






1330 


- 42 


1730 


-142 


2130 


-216 


2530 








540 


- 52 






1340 




1740 


- 0 


2140 


-158 


2540 


-233 






-198 






1350 


-207 


1750 




2150 


- 24 


2550 








560 


-248 






1360 


-107 


1760 


- B 


2160 


-177 


2560 


- 0 






570 


-142 






1370 




1770 


- 57 


2170 


-215 


2570 


-202 




-237 


580 
590 


- 0 


980 


-142 


1380 


-113 


1780 


-155 


21B0 


- 54 


23B0 


-142 


200 


-242 


-236 


990 


- 0 


1390 


- 33 


1790 


-222 


2190 


-179 


2590 




- 92 


600 


-238 


1000 


- 97 


1400 


- 27 


1800 


- 40 


2200 


-174 


2600 


- 12 


210 


- 0 


610 


- 84 


1010 


-121 


1410 


-251 


1810 


- 70 


2210 


- 39 


2610 


-153 




_ 160 




- 27 


1020 


-119 


1420 


-192 


1820 


- 62 


2220 


-203 


2620 


-174 


T 




630 


-142 






1430 


-223 


1830 


-159 


2230 


-204 


2630 


-203 


240 


- 25 


640 


- 0 




- 10 


1440 


-207 


1840 


-181 


2240 


-163 


2640 


-214 


250 
260 


- 39 


650 


-163 


1050 


-142 


1450 


- 30 


1850 


-135 


2250 


-171 


2650 


-198 


- 7B 


660 


-202 


1060 


- 0 


1460 




1860 


-234 


2260 


-145 




-210 


270 


-184 




- 84 


1070 


-247 


1470 


- 65 


1870 


- 85 


2270 


- 85 


2670 


-196 


280 


- 9 


680 


-142 


1080 




1480 


- 71 


1680 




22B0 


- 11 


2680 




290 


- 69 


690 


- 0 


1090 


-142 


1490 




1890 


-142 


2290 


-142 




-131 


300 


-186 


700 


-120 


1100 


- 0 


1300 


-203 


1900 


- 0 


2300 


-155 


2700 




310 


- 613 


.710 


- 85 


1110 


-178 


1510 


-187 


1910 


- 58 


2310 




2710 


- 29 


320 


-193 


720 


-142 


1 120 


- 28 


1520 


-195 


1920 


- 41 


2320 


- 5B 


2720 


-185 


330 


-2513 


730 


- 0 


1130 


- 7 


1530 


- 97 


1930 


-186 


2330 


-187 


2730 


-176 


340 


- 93 


740 


-129 


1 140 


- 36. 


1540 


-206 


1940 


-193 


2340 




2740 


-176 


350 


- 0 


750 


- 79 


1 150 


-117 


1550 


-134 


1950 


-110 


2350 


-135 


2750 


- 88 


360 


-188 


760 


-119 


1 163 


-203 


1560 


-133 


1960 


- 2B 


2360 


-214 


2760 




370 


- 92 


770 


-117 


1 170 


- 48 


1570 


-125 


1970 
19B0 


- 38 


2370 
2380 


-196 


2770 


-206 


380 


-193 


780 


- 49 


1 180 


-142 


15B0 


-255 


- 43 


- 0 


27B0 


-.142 


390 


-179 


790 


-142 


1 190 


- 0 


1590 


-162 


1990 


- 45 


2390 


-155 


2790 


-135 


400 


- 97 




- 0 


1200 


- 14 


1600 


-146 


2000 


-240 


240« 


-114 


32013 



Software 



iPor Rony VanGinkel 




Programa 



Por Ramón Sala Carbó 




* Programa ■ 



RIN- 



"Es c 



"' THEN 270 ELS 
1 THEN 150 ELSE 
's" THEN PLAY t 



i B*=INKEY*i IF B* = 
E IF B*="N" OR B*="n 
IF 6*<>"5" AND B*<> 
*:GOTO 270 
280 CC=C1:RE=INT(16500/C1> :RE=RE-1: 
RE5 499 THEN RE=499 
l DIM NO* (RE; : GOSUB 1240: LOCATE 
'0-2 : PLAY " 03C " : PR I NT " Reg i stros 1 
?s: ";RE+1:G0T0 1280 
300 GOSUB 1360: LOCATE 9. Y0-2: PRINT" 
- pulsa ESC" 
[ + 1 : M— 1 : L 1 - 1 : NO* ( I ) =SPAC 
E*<CC> :H=I: GOSUB 1370 

:L0=C1 



4E j 
460 



MID*(I> 



(I) 



IN*:L1=L 

330 IF M=J THEN 310 
340 0=2: GOTO 360 
550 Q-3 

360 L1=1:S=0: GOSUB 1360: IF J=0 THEN 
':GOTO 400 

> TO J: X = X 



R'INT ! 



l:NEXl 



LOCATE 3, V0-2: PLAY"03C" : PRINT" 
NTRGDUCE EL' No. DE CAMPO A BUSCAR" 

B*=INKEY*: IF B*="" THEN 390 ELS 
E IF VAL (B* XI OR VAL(B*)>J+I THEN 
PLAY M*:GOTO 390 

400 GOSUB 1240: PLAY"03C": LOCATE 

: PRINT" INTRODUCE EL DATO A BUSCA 



4 10 



-'=>.< Ai. 



M-D-: NEX" 
420 FOR i 



Bl=B-lsX=Xl (Bl) : Y; 
GOSUB 810: FOR 11=0 TO 
THEN NEXT M ELSE L1=L1+CU 



: IF MID*(NO*(H) 
C)=IN* THEN 1370 ELSE NEXT H 
430 CLS: IF S=0 THEN LOCATE 4.10 
NT "NINGUN REGISTRO POSEE ESTE DATO" 
» LOCATE 11. 12:PRINT"EN SU CAMPO No 

:B:GOTO 1260 
440 LOCATE 4, 10: FRI NT "NINGUN OTRO 
EGISTRO POSEE ESTE " : LOCATE ?.12:PRI 
NT "DATO EN SU CAMPO No.";B:GOTO 126 

Para "sal ir pulsa RETURN" : PRINT TAB 
(16;" - — " : 0=4: H-0: GOTO 490 

460 B*=INKEY*:IF B*="" THEN 460 ELS 
E IF B*=CHR*<13> THEN 50 ELSE II 
=CHR*<28! THEN H=H+1 ELSE IF B*=CHR 
*<29> THEN H=H-1 ELSE PLAY M*:GOTO 



4=0 LOCATE 26. Yí 
GOSUB 1370 
5O0 GOTO 460 
Q=5:G0T0 
CLS: LOCATE 
DATOS" : PRINTTAI 
E=l: LOCATE 

URN 



I THEN PLAY "06C":H=I: GOTO 
0 THEN PLAY "O6C":H=0: GOTO 
PRINT USING"###" 



;60 



: 'RI NT "Pulsa RET 
■ y des- " : LOCATE 
2,6:FFINT"pués PLAY en el casaet 
te. " : GOSUB 1250 

540 CLS: LOCATE 9, 1 1 : PRINT"UN MOMENT 
O POR FAVOR" : OPEN"CAS: "FOR INPUT AS 



» INFU1 
) FOR h- 
I INPUT tt 



a.co.Li. i. a, re. ce 

1 TO 24 



¡80 INPL'T#1 . C (H> ,CJ (H) 
590 INFUT#1.N(H) .NI (H) 
600 LINE INPUT#1.N*(H> 
610 NEXT H 
620 CIM NO* (RE) : POP H-0 TO IsLIME I 
NPUTtt 1 . NO* ( H) : NEXT H 
CLOSE 

640 FOR H=0 TO 24: Yl (H) *>V (H) 3 XI (t 
:H)+C(H) : NEXT Hl X0"f 8— INT (CO/2) ! 
.2-IMT(LI .'2> : XX = X0+2: YY-YO+ 1 
j0 FOR H=l TO 10: BEEP: NEXT: GOTO 50 

660 CLS: LOCATE 1 1 . O : PR J NT " GRAE'AC I GN 
DE DATOS ":PR I NTTAB ! 1 1 ) " 

)70 LOCATE 2, 4: PRINT "Pul s a REC - ; 



: GOSUB 1250 
680 CLS: LOCATE 9, 11 
O POR FAVOR" :OPEN"[ 



I PRINT* t, X(H) .Y(H) 
I PRINT#1,C(H) ,C1 (H) 
í PRINT#1,N(H) ,N1 (H) 
3 PRINT#1,N*(H) 
S NEXT H 

í FOR H=0 TO I:PRINT#1,N0*(H): 

f CLOSE: GOTO 650 
>> CLS: PLAY-03C": LOCATE 7,il:PRINT 
ÍLIR DEL PROGRAMA (S/N)?" 
770 B*=INKEY*:IF B*="" THEN 790 ELS 
E IF B*="N" OR B*="n" THEN 50 ELSE 
IF B* I! " S' AND B*<>"s" THEN PLAY M* 
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i IF LO =W THEN LOCATE X.Y:FP¡ 
iING*<LQ,95) :GOTO 950 EL5E LOC 
YiPRINT STFING$<W.?5) : LL=LL-l 



i IF LL =W1 THFH LOCATE --.YZ:FFi 
STRING*<LL,95) 

' I*=INPUT*U> :A=ASC(I*> 
I IF Q=l THEN 890 

IF IN*="" THEN IF A=28 OR A=29 
A=30 OR A=31 THEN 1020 



r THEN IF Q= 
►"" THEN i = : 
' AND Q=l Tf 



;GOTO 850 ELSE C=( 
:> : X = X-1 :GOSUB 11! 
r" ":GOTO 850 



HEN RETURI 
■0 AND IN*= 
>1:RETURN 
THEN 0=0: 1= 

>0 THEN PLA> 
[ : IN*=LEFT* ( : 
LOCATE X,Y:I 

5=1 THEN IF : 



AND > 



'-C0 ■ 



980 IF C=LO THEN F'LAY M*:GOTO OSÉ 
'90 LOCATE X.Y:FRINT I*:IN*=IN*+] 
000 C=C+1: X=X+1:G0SUE 1201? 
010 GOTO 850 

020 IF A=2S THEN IF X=XX+C0-1 T\ 
850 ELSE X = X + 1 

030 if a=29 then if x = xx then 8í 
:lsex=x-i 

040 if a=30 then if y = yy then 8! 
:lsey=y-i 

050 if a=31 then if y=yy+li-1 ti 

850 ELSE Y=Y+1 

060 X1=X: Y1=Y:G0T0 850 



1210 IF X-XX+CO+1 AND Y-YY+LI-l THI 
N X=XX+C0:C1=C1-1: RETURN l,«80 
1220 RETURN 

1230 CLS:LOCATE X0 . Y0 : F R I N T " |" : : FOI 
H=l TO C0+2:PF:INT"— ; :NEX7 H:FRIN' 
"l":FOR H-l TO LI:PRINT TAB(X0)"|" 
TAB ( X0+CO+3) "| ":NEXT H: F"R INT TAB(X0 
>"|"S:FOR H=l TO CO+2: FR I NT : 
T H:PRINT"| ¡RETURN 
1240 LOCATE 0, Y0-2:PRINT SPC (80 
TURN 

1250 Z*=INKEY*sIF Z*="" THEN 12'... _ 
LSE IF Z*=CHR*<13> THEN RETURN ELSE 
F'LAY Mí: GOTO 1250 



LOCATE : 



J0JNEXT Z:GOT0 ! 
PRINT'C Al acaí 
ESC ]":FRINT " 
iUSING"Campo no.: *# (Má* . 251 
L : RETURN 

i GOSUB 1240: LOCATE 5.Y0-2:PRIÍ 
nérico <N> 6 AUsnuménco (A)" 
J D*= INt'EY*: IF B*="" THEN 1310 



520 ELSE F'LAY 
LOCATE 4, YO -: 



¡ IF N1(N)=1 AND VALÍMID* (MO*(H) 
O) ) : 0 THEN 1480 
IF LO<=W THEN LOCATE X,Y:RRIN1 
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Programa 



Q=l DR Q=4 THEN RETURN 
430 GOSUB 1240:S=1:PLAY"O3C":LOCAT 
Y0-2:PRINT"ES ESTA FICHA (S/N) 



E ll 



1440 B*=INKEY*íIF B*="" THEN 1440 
LSE IF B*="N" OR B*="n" THEN NEXT 
:GOTO 430 : ELSE IF B*<>"S" AND B*<> 
>" THEN F'LAY M*:GOTO 1440 
450 GGSUB 1240: IF 0=2 THEN PLAY"03 
:»: LOCATE 6 . Y0-2 : PR I N r "Anuí ac i on i 
la ficha (S/N>?"sBOTO 1510 
1460 IF Q=3 THEN IF J-0 THEN B*=" 
:GOTO1590 ELSE PLAY"03C" : LOCATE 2 
>-28 PRINT" INTRODUCE EL No. DE CAMPO 
A MODIFICAR": GOTO 1560 
.470 -IF 0=5 THEN LOCATE 6. Y0-2: PLAY 
'03C": PRINT" [ Para salir pulsa RETU 
(N ]":GOSUB 1250: GOTO 50 

TO L0:A1*=A1S+A*:NE 



Z: IF LO 



TI !EM 



1490 Al*- A 
.*+",": IF L0>? THEN A)*=Ai*+"," 
.500 LOCATE X. Y:PRINTUSING Al*; VAL ( 
1ID*<N0*<H) .L.LO) ) : Al*-"": NEXT N.-GO 

TO 1420 

510 B*=INKEY*:IF B*="" THEN' 1510 E 
¡E IF B*="N" GR B»="n" THEN 50 ELS 
IF B*<>"S" AND B*<>"s" THEN PLAY 
& : GOTO 1510 

1520 FOR N=H TO I : NO* <N> -NO* <N+1 ) 

1530 IF N-I THEN 1550 

1540 NEXT N 

1550 GOSUE 1240: 1=1-1 : PLAY"03C" : LOC 
1 2 , Y0-2 : PR I NT " RES ISTRO ANULADO " 
:GOTO 1280 

15¿,0 L-lsFOR M=0 TD J ¡ X-Xl <M) s Y-Yl I 
i : LOCATE X , Y : PR I N'T M+ 1 : NE X T M 

1 THEN 1570 E 



LSE : 
LAY t 



1 OR V 



GOTO 

ZS0 0=1:G0SUB 1 3?!:' : L = 1 : 0 = 3" 
5«?0 B=VAL!B*) :B1=B-1 : X = X1 (Bt ) : Y=Y 
B1):L0=C1(B1):FQR M=0 TO B1:IF M=0 
THEN NEXT M ELSE L-L+Cl (M-l ) : NEXT 



1620 LOCATE 9, Y0-2: PLAY-03C" : PRINT' 
MODIFICACION EFECTUADA" : GÜTÜ 1280 
1630 GOSUB1240: LOCATE 3, Y0-2: PRINT" 
C Presiona ma/úscul as (CAPS-LOO 
" : PLAY W* 

1640 IF PLAY(l) <>0 THEN 1640 ELSE 6 
OSUB 1240:FOR 2=0 TO 5: B*= INKEY* : NE 
XT: LOCATE 9 , Y0-2 : PR 1 NT " F -ar a acat 
pulsa ESC": GOTO 850 
1650 CLS:LOCATE 9 , 1 1 : PR I NT " EL F r 'I CHE 
RO ESTA VACIO" : GOTO 1260 
1660 CLS: LOCATE Z , 1 0 : F F, 1 N 1 " EL FORMA 
TO AUN NO HA SIDO DISEñADO" : LOCATE 
4, 12: PRINT"PULSA OPCION No. 1 ó 
EL MENU": GOTO 1260 
1670 CLS: PLAY W*: LOCATE 8. t0:fRl 
ERROR DE ENTRADA/SALIDA" : LOCATE 
1 2 : PR I NT " I NTENT ALO DE NUEVO " 
1680 IF F'LAY ( 1 ) ■. >0 THEN 1630 ELSE Tí 
ESUME50 

690 IF Q=0 OR 0=1 THEN PLAY M*:RET 
URN ELSE RETURN 50 



Test de listados ■ 



n el ordenador el Programa o 



-58 8 - 58 40 - 




iPor Antonio Montero — 



El amigo Antonio nos introduce mediante su 
interesante programa en las mil dificultades que 
supone repeler una invasión con todas las de la 
ley.^ngrasa-t.joystickyprepárateasufrirde 











Bailas Ék¡^ 






mmmi 














430 IF STRIG(TC)=-1 THEN GOSUB 5 


20 ' INVASION 






30 ' 




440 IF D=3 THEN B=IN5TR(B$, "A") : 


40 ' POR ANTONIO MONTERO 




IF B<30 THEN MIDt (B*, B, 4) »" ¿4«" 






450 IF D=7 THEN B=INSTR (B*, : 


60 ' PARA MSXCLUB 
70 ' 




IF B>1 THEN MID*<B*,B-1,4>="£*« 
" 




460 LOCATE 0, 22: PRINTB»; 






470 TE=TIME\100: IF TE >T I THEN TI 






=TE: LOCATE 1 , 0: PRINT"TIEMPO: ":TI 


110 TIME=0 
120 CLEAR 1000 

130 PRINT: PRINT" ** * INVASION IN 




4B0 GOTO 390 

490 A=INSTR(A$(R) , "■" > +INSTR (A* < 
R>,"I">+INSTR(A*<R>," ■") 


TERGALACTICA 

140 PRINT: PRINT: FRINT 




500 IF A=0 THEN RETURN 

510 IF R/2=R\2 THEN A*(R)=RIGHT* 




<A*<R> ,30)+LEFT$(A$(R) , 1) : GOTO 5 


160 A$=INPUT$ ( 1) : IF A*<>"J" AND 








290 

300 NEXT 

310 VPOKE 8218,206 






180 PRINT: PRINT: PRINT: INPUT"NUME 




320 VPOKE 8219,206 






330 VPOKE 8223,78 


190 IF NLK1 OR NU>20 THEN 1B0 




340 FOR 1=1 TO NU: LOCATE 0,1 


200 CLS 




: 350 PRINTA* ( I ) : NEXT 


210 D1M A*<NU) 




360 FOR 1=6881 TO 6910: VPOKE 1,2 


220 DEFINT I 




49: NEXT 


230 WIDTH 32 




370 B*=SPACE* ( 14) +"¿tu"+SFACEÍ ( 1 


240 R1=100:R2=90 






250 FOR 1=1704 TO 1775:READ QsVP 




330 ' 


DKE I, Os NEXT 




390 R=INT<RND< 1) *NU)+1 


260 FOR 1=1 TO NU 




400 IF STRIG(TC>=-1 THEN GOSUB 5 


270 A* ( I ) =SPACE* (13)+" SB" +SPACE 




B0 


*<14> 




410 G05UB 490 


280 E*="Ra" 




420 D=STICK(TC> 
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+LEFT$( 



520 A?(R)=RIGHT*<A*<F 

KR) ,30) 
530 LOCATE 0, R 
540 PRINTAÍÍR) 

550 A=INSTR(A*<R) ."■"): IF A>0 TH 

EM IF A>30 ÜR A 2 THEM 510 

560 A=IN5TR<A*<R! , " ■'•) :IF A>0 TH 

EN IF A>2? CP A<3 THEN 510 

580 B=INSTR <B*. "A" > 
590 E=23*32+B+6144: IF VPEEK(E)=3 
2 THEN RETURN ELSE VPOKE E.32 
600 J=J+1:IF J>29 THEN FGR 1=688 

TQ 6910:VPQKE I , 249: NEXT : J=0 
>10 FQR 1 = 20 TO 1 STEP -1 
620 E=I*32+B+6144 

i! IF VPEEK'EX.32 THEN F=l: LOC- 
ATE B, I : PRINT" - " s LOCATE B.I+lsPR 

T " ":60TG 690 
640 LOCATE B . I : PR IMT LOCATE B 
, I+lsPRINT" " 

650 NEXT : LOCATE 0. 1 : PRINTAÍ ( 1 ) 
660 F=0 

670 N 1=N1 +1 : LOCATE 15,0: PRINT"BA 
LAS: " : NI 
680 RETURN 
690 BEEP 

700 IF INSTR(A*(I) . "I ' 
ID*<A*<I),B+1,1>=" " 
710 IF INSTR(A*(I! . "■' 
ID*(A*(I) , INSTR(A*(I> . 



' >0 THEN M 
I >0 THEN M 



730 LOCATE 0,1: PRINTA* ( I ) : N=N+1 : 
IF N<3*NU THEN 670 

740 LOCATE 5,5:PRINT"LA HAS CONS 
EBUIDO ! " 

750 IF NXRl AMD TK=R2 THEN Rl = 
N1:R2=TI 

760 IF Nl= <R1 AMD TKR2 THEN Rl = 
N1:R2=TI 

770 LOCATE 3.7:PRINT"EL RECORD E 
STA EN : » 

780 LOCATE 3, 9: PRINT"-"R1 "BALAS 
": LOCATE 3, 1 1 : PRINT" -"R2" SEGUNDO 

790 LOCATE 5, 13: PRINT"OTRA ?"; 
800 A4=INPUT*(1) : IF A*<>"N" AND 
A*<>"S" THEN 800 
810 CLS 

B20 IF A$="S" THEN TIME=0: N=0: J= 
0:N1=0:TI=0: ERASE A*:DIM A* (20): 
GOTO 260 

830 SCREEN 0: COLOR 15.4,7:END 
840 DATA 0.1 ■ - 



9. 255, í 
28 



255,255. 165.255,21 
252,87,248.224,0. 1 
850 DATA0.0,0.0,0, 
S60 DATA24.60. 126. 
5,255 

870 DATA0,0,0,0,0, 
880 DATA 193.39.31 



890 DATA 131.228,248,95.87, 
24.60 

900 DATA 90,60,90,219,255," 



, 0, I 21 



Test de listados ■ 



10 


- 58 














570 




¿710 




850 - 71 




- 58 




- 79 






440 


-101 


580 




/-20 


-128 


360 - 41 


30 


- 58 


170 


- 91 




- 5 


4 50 


- 80 


590 


-156 




- 37 


870 -120 


40 


- 58 


1 80 


- 1 03 


320 




460 


-166 


600 


- 37 


7' 40 


-1B5 


880 - 91 


50 


- 58 


J 90 


-119 


330 


-138 


470 


-250 


610 


-168 


750 


-136 


890 -251 




- 58 




-159 


? , 


-224 


4 Oí 


- 30 


/630 


-191 


/7i0 


-136 


700 -138 




- 58 


210 










-16" 


-247 








00 


- 97 


220 




J..Í0 




500 




/A 40 




780 








-183 






330 


- 58 


✓ 510 

520 








790 
800 


-181 












390 








670 


- 1 "5 


810 


-159 




20 








400 


-195 


5 40 


-153 


680 




020 






30 


254 


,'270 


-161 


410 


-134 


«3:;' 




690 


-192 


830 


- 43 


TOTAL: 


40 


- 39 


280 


- 83 


420 


-188 


560 


-155 


700 


- i. 54 


840 




11375 



29 



! Por Sascha Ylla-Kónneke— 

lümeros anteriores hemos comentado 
llevan el sello DINAMIC, 
KONAMI y también, como 
programas. 

nos y os ofrecemos un pequeño 
los productos de Software Sony en 
español. 



Aliora seguimos 
extracto de los p. 
el mercado espai 



¿«ii i gas i mm^ 



PROGRAMAS EDU 



ÍIP 




,gÜS SSsSEE HiPP 

mmm mr™ — 
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DESCUBRE TU ORDENADOR 




LOS SECRETOS 
DEL MSX 



UN LIBRO PENSADO 
PARA TODOS LOS QUE 
QUIEREN INICIARSE 
DE VERDAD EN LA 
PROGRAMACION BASIC 

Construcción de programas. El po- 
tente editor todo pantalla. Constan- 
tes numéricas. Serles, tablas y ca- 
denas. Grabación de programas. 
Gestión de archivo y grabación de 
datos. Tratamiento de errores. Los 
gráficos del MSX. Los sonidos del 
MSX. Las interrupciones. Introduc- 
ción al lenguaje máquina. 



Alfabético. Canon a tres voces. 
Moon Germs. Bossa Nova. Blue 
Bossa. La Séptima de Beethoven. 
La Flauta Mágica de Mozart. Scrap- 
ple from the apple & Donna Lee. The 
entretalner. Teclee un número. Ca- 
lendario perpetuo. Modificación Ta- 
bla de colores SCREEN 1. Rectán- 
gulos en 3-D. Juego de caracteres 
alfabéticos en todos los modos. Jue- 



;e Now. El robot saltarín. El archivo 



EL LIBRO QUE ESPERABAS YA 
ESTA A LA VENTA 

ENVIA HOY MISMO EL BOLETIN DE PEDIDO 



Deseo me envíen el libroLos secretos del MSX. para lo cual adjunto talón de 1 .500 ptas. a la orden 

de MANHATTAN TRANSFER. S.A. 

Nombre y apellidos I 

calle n.° Ciudad DP ¡ 

Este boletín me da derecho a recibir los secretos MSX en mi domicilio libre de gastos de envío o ! 
cualquier otro cargo. I 
- - :ar en el ^^H™™™^*^ 

Roca i Batlle, 10-12 Bajos - 08023 BARCELONA 



THE JWSX: NEWS 



Fundado en 1988 por DISCO VERY Informatk 

Redacción y Administración: Arco Iris, 75 - 08032 BARCELONA NUMERO 1-1988 

Teléfonos: (93) 256 49 08 - 09 PRECIO POR EJEMPLAR: 975 Pías. 




